/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / S / Simple Sockets 1.0.1.sit / Simple Sockets 1.0.1 ƒ / Sample Apps ƒ / day_server ƒ / source / dayd.c

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 64 61 79 64 2e 63 | 00 00 00 00 00 00 00 00 |..dayd.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 43 | 43 00 00 00 00 00 00 00 |.TEXTMPC|C.......|
|00000050| 00 00 00 00 00 06 7b 00 | 00 01 9a aa a2 c0 a3 aa |......{.|........|
|00000060| a2 c0 a3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 93 20 00 00 |........|..... ..|
|00000080| 2f 2a 0d 20 2a 20 64 61 | 79 64 2e 63 0d 20 2a 0d |/*. * da|yd.c. *.|
|00000090| 20 2a 20 44 61 79 54 69 | 6d 65 20 73 65 72 76 65 | * DayTi|me serve|
|000000a0| 72 20 66 6f 72 20 74 68 | 65 20 4d 61 63 69 6e 74 |r for th|e Macint|
|000000b0| 6f 73 68 2e 20 4d 6f 64 | 65 6c 65 64 20 61 66 74 |osh. Mod|eled aft|
|000000c0| 65 72 20 6d 79 20 44 61 | 79 64 20 70 72 6f 67 72 |er my Da|yd progr|
|000000d0| 61 6d 20 66 6f 72 20 55 | 4e 49 58 2e 0d 20 2a 20 |am for U|NIX.. * |
|000000e0| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 61 6c 73 |This pro|gram als|
|000000f0| 6f 20 76 65 72 69 66 69 | 65 73 20 77 68 65 74 68 |o verifi|es wheth|
|00000100| 65 72 20 6d 79 20 69 70 | 20 6c 69 62 72 61 72 79 |er my ip| library|
|00000110| 20 77 69 6c 6c 20 77 6f | 72 6b 20 75 6e 64 65 72 | will wo|rk under|
|00000120| 20 74 68 65 20 70 72 69 | 6e 74 66 0d 20 2a 20 73 | the pri|ntf. * s|
|00000130| 79 73 74 65 6d 2e 0d 20 | 2a 0d 20 2a 2f 0d 0d 2f |ystem.. |*. */../|
|00000140| 2a 20 41 64 64 69 74 69 | 6f 6e 61 6c 20 4d 61 63 |* Additi|onal Mac|
|00000150| 20 49 6e 63 6c 75 64 65 | 73 20 2a 2f 0d 23 69 6e | Include|s */.#in|
|00000160| 63 6c 75 64 65 20 3c 4d | 61 63 54 43 50 43 6f 6d |clude <M|acTCPCom|
|00000170| 6d 6f 6e 54 79 70 65 73 | 2e 68 3e 0d 0d 2f 2a 20 |monTypes|.h>../* |
|00000180| 41 6e 73 69 20 49 6e 63 | 6c 75 64 65 73 20 2a 2f |Ansi Inc|ludes */|
|00000190| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|000001a0| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 74 69 |.h>.#inc|lude <ti|
|000001b0| 6d 65 2e 68 3e 0d 0d 2f | 2a 20 41 64 64 69 74 69 |me.h>../|* Additi|
|000001c0| 6f 6e 61 6c 20 49 6e 63 | 6c 75 64 65 73 20 2a 2f |onal Inc|ludes */|
|000001d0| 0d 23 64 65 66 69 6e 65 | 20 44 41 59 44 0d 23 69 |.#define| DAYD.#i|
|000001e0| 6e 63 6c 75 64 65 20 22 | 67 6c 6f 62 61 6c 73 2e |nclude "|globals.|
|000001f0| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 69 70 2e |h".#incl|ude "ip.|
|00000200| 68 22 0d 0d 0d 69 6e 74 | 20 64 61 79 74 69 6d 65 |h"...int| daytime|
|00000210| 64 20 28 73 68 6f 72 74 | 20 73 6f 63 6b 29 3b 0d |d (short| sock);.|
|00000220| 76 6f 69 64 20 49 6e 69 | 74 54 6f 6f 6c 42 6f 78 |void Ini|tToolBox|
|00000230| 28 76 6f 69 64 29 3b 0d | 0d 6d 61 69 6e 28 29 0d |(void);.|.main().|
|00000240| 7b 0d 09 73 68 6f 72 74 | 20 6d 73 6f 63 6b 3b 0d |{..short| msock;.|
|00000250| 0d 09 49 6e 69 74 54 6f | 6f 6c 42 6f 78 28 29 3b |..InitTo|olBox();|
|00000260| 0d 09 0d 09 2f 2f 70 72 | 69 6e 74 66 28 22 44 79 |....//pr|intf("Dy|
|00000270| 61 64 20 73 65 72 76 65 | 72 20 66 6f 72 20 4d 65 |ad serve|r for Me|
|00000280| 74 72 6f 57 65 72 6b 73 | 20 74 65 78 74 20 65 6e |troWerks| text en|
|00000290| 76 69 72 6f 6e 6d 65 6e | 74 5c 6e 22 29 3b 0d 09 |vironmen|t\n");..|
|000002a0| 69 66 20 28 49 6e 69 74 | 4d 61 63 54 43 50 28 29 |if (Init|MacTCP()|
|000002b0| 20 21 3d 20 6e 6f 45 72 | 72 29 20 7b 0d 09 09 53 | != noEr|r) {...S|
|000002c0| 79 73 42 65 65 70 28 33 | 29 3b 0d 09 09 2f 2f 70 |ysBeep(3|);...//p|
|000002d0| 72 69 6e 74 66 28 22 49 | 6e 69 74 4d 61 63 54 43 |rintf("I|nitMacTC|
|000002e0| 50 28 29 20 66 61 69 6c | 65 64 21 5c 6e 22 29 3b |P() fail|ed!\n");|
|000002f0| 0d 09 09 72 65 74 75 72 | 6e 3b 0d 09 7d 0d 0d 09 |...retur|n;..}...|
|00000300| 6d 73 6f 63 6b 20 3d 20 | 73 6f 63 6b 65 74 20 28 |msock = |socket (|
|00000310| 49 50 50 52 4f 54 4f 5f | 54 44 50 29 3b 0d 09 69 |IPPROTO_|TDP);..i|
|00000320| 66 20 28 6d 73 6f 63 6b | 20 3c 20 30 29 20 7b 0d |f (msock| < 0) {.|
|00000330| 09 09 2f 2f 70 72 69 6e | 74 66 28 22 73 6f 63 6b |..//prin|tf("sock|
|00000340| 65 74 28 29 20 66 61 69 | 6c 75 72 65 21 5c 6e 22 |et() fai|lure!\n"|
|00000350| 29 3b 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 7d 0d |);...ret|urn;..}.|
|00000360| 09 0d 09 69 66 20 28 28 | 62 69 6e 64 28 6d 73 6f |...if ((|bind(mso|
|00000370| 63 6b 2c 20 31 30 32 36 | 29 20 29 20 3c 20 30 29 |ck, 1026|) ) < 0)|
|00000380| 20 7b 0d 09 2f 2f 09 70 | 72 69 6e 74 66 28 22 62 | {..//.p|rintf("b|
|00000390| 69 6e 64 28 29 20 66 61 | 69 6c 75 72 65 21 5c 6e |ind() fa|ilure!\n|
|000003a0| 22 29 3b 0d 09 09 72 65 | 74 75 72 6e 3b 0d 09 7d |");...re|turn;..}|
|000003b0| 0d 09 0d 09 69 66 20 28 | 28 61 63 63 65 70 74 20 |....if (|(accept |
|000003c0| 28 6d 73 6f 63 6b 29 29 | 20 3c 20 30 29 20 7b 0d |(msock))| < 0) {.|
|000003d0| 09 09 2f 2f 70 72 69 6e | 74 66 28 22 61 63 63 65 |..//prin|tf("acce|
|000003e0| 70 74 20 66 61 69 6c 65 | 64 3a 20 25 73 5c 6e 22 |pt faile|d: %s\n"|
|000003f0| 2c 67 45 72 72 6e 6f 29 | 3b 0d 09 09 67 6f 74 6f |,gErrno)|;...goto|
|00000400| 20 66 6f 6f 3b 0d 09 7d | 0d 09 2f 2f 70 72 69 6e | foo;..}|..//prin|
|00000410| 74 66 28 22 6d 73 6f 63 | 6b 20 61 63 63 65 70 74 |tf("msoc|k accept|
|00000420| 65 64 5c 6e 22 29 3b 0d | 20 20 20 20 28 76 6f 69 |ed\n");.|    (voi|
|00000430| 64 29 20 64 61 79 74 69 | 6d 65 64 28 6d 73 6f 63 |d) dayti|med(msoc|
|00000440| 6b 29 3b 0d 20 20 20 20 | 0d 66 6f 6f 3a 0d 20 20 |k);.    |.foo:.  |
|00000450| 20 20 28 76 6f 69 64 29 | 20 6d 61 63 5f 63 6c 6f |  (void)| mac_clo|
|00000460| 73 65 20 28 6d 73 6f 63 | 6b 29 3b 0d 20 20 20 2f |se (msoc|k);.   /|
|00000470| 2f 20 70 72 69 6e 74 66 | 28 22 63 6c 6f 73 65 64 |/ printf|("closed|
|00000480| 20 73 74 72 65 61 6d 5c | 6e 22 29 3b 0d 7d 0d 0d | stream\|n");.}..|
|00000490| 0d 76 6f 69 64 20 49 6e | 69 74 54 6f 6f 6c 42 6f |.void In|itToolBo|
|000004a0| 78 28 76 6f 69 64 29 0d | 7b 0d 09 49 6e 69 74 47 |x(void).|{..InitG|
|000004b0| 72 61 66 28 26 71 64 2e | 74 68 65 50 6f 72 74 29 |raf(&qd.|thePort)|
|000004c0| 3b 0d 09 49 6e 69 74 46 | 6f 6e 74 73 28 29 3b 0d |;..InitF|onts();.|
|000004d0| 09 49 6e 69 74 57 69 6e | 64 6f 77 73 28 29 3b 0d |.InitWin|dows();.|
|000004e0| 09 49 6e 69 74 4d 65 6e | 75 73 28 29 3b 0d 09 54 |.InitMen|us();..T|
|000004f0| 45 49 6e 69 74 28 29 3b | 0d 09 49 6e 69 74 44 69 |EInit();|..InitDi|
|00000500| 61 6c 6f 67 73 28 6e 69 | 6c 29 3b 0d 09 49 6e 69 |alogs(ni|l);..Ini|
|00000510| 74 43 75 72 73 6f 72 28 | 29 3b 0d 09 0d 2f 2a 09 |tCursor(|);.../*.|
|00000520| 69 66 20 28 49 6e 69 74 | 4d 61 63 54 43 50 28 29 |if (Init|MacTCP()|
|00000530| 20 21 3d 20 6e 6f 45 72 | 72 29 20 7b 0d 09 09 53 | != noEr|r) {...S|
|00000540| 79 73 42 65 65 70 28 33 | 29 3b 0d 09 09 45 78 69 |ysBeep(3|);...Exi|
|00000550| 74 54 6f 53 68 65 6c 6c | 28 29 3b 0d 09 7d 2a 2f |tToShell|();..}*/|
|00000560| 0d 7d 0d 0d 69 6e 74 20 | 64 61 79 74 69 6d 65 64 |.}..int |daytimed|
|00000570| 28 73 68 6f 72 74 20 73 | 6f 63 6b 29 0d 7b 0d 09 |(short s|ock).{..|
|00000580| 74 69 6d 65 5f 74 20 74 | 69 6d 3b 0d 09 0d 09 28 |time_t t|im;....(|
|00000590| 76 6f 69 64 29 20 74 69 | 6d 65 28 26 74 69 6d 29 |void) ti|me(&tim)|
|000005a0| 3b 0d 09 28 76 6f 69 64 | 29 20 6d 61 63 5f 77 72 |;..(void|) mac_wr|
|000005b0| 69 74 65 28 73 6f 63 6b | 2c 20 63 74 69 6d 65 28 |ite(sock|, ctime(|
|000005c0| 26 74 69 6d 29 2c 20 73 | 69 7a 65 6f 66 20 28 74 |&tim), s|izeof (t|
|000005d0| 69 6d 65 5f 74 29 29 3b | 0d 09 72 65 74 75 72 6e |ime_t));|..return|
|000005e0| 20 30 3b 0d 7d 09 0d 09 | 0d 0d 2f 2a 69 6e 74 20 | 0;.}...|../*int |
|000005f0| 64 61 79 74 69 6d 65 64 | 28 69 6e 74 20 73 6f 63 |daytimed|(int soc|
|00000600| 6b 29 0d 7b 0d 09 44 61 | 74 65 54 69 6d 65 52 65 |k).{..Da|teTimeRe|
|00000610| 63 20 64 61 74 65 3b 0d | 09 63 68 61 72 20 74 69 |c date;.|.char ti|
|00000620| 6d 65 5b 34 30 5d 3b 0d | 09 63 68 61 72 20 64 61 |me[40];.|.char da|
|00000630| 79 5b 34 5d 3b 0d 09 63 | 68 61 72 20 6d 6f 6e 74 |y[4];..c|har mont|
|00000640| 68 5b 31 33 5d 3b 0d 09 | 0d 09 47 65 74 54 69 6d |h[13];..|..GetTim|
|00000650| 65 28 26 64 61 74 65 29 | 3b 09 0d 09 53 65 74 44 |e(&date)|;...SetD|
|00000660| 61 79 41 6e 64 4d 6f 6e | 74 68 28 64 61 74 65 2c |ayAndMon|th(date,|
|00000670| 20 64 61 79 2c 20 6d 6f | 6e 74 68 29 3b 0d 7d 2a | day, mo|nth);.}*|
|00000680| 2f 0d 0d 2f 2a 76 6f 69 | 64 20 53 65 74 44 61 79 |/../*voi|d SetDay|
|00000690| 41 6e 64 4d 6f 6e 74 68 | 28 44 61 74 65 54 69 6d |AndMonth|(DateTim|
|000006a0| 65 52 65 63 20 64 61 74 | 65 2c 20 63 68 61 72 20 |eRec dat|e, char |
|000006b0| 2a 64 61 79 2c 20 63 68 | 61 72 20 2a 6d 6f 6e 74 |*day, ch|ar *mont|
|000006c0| 68 29 0d 7b 0d 09 73 77 | 69 74 63 68 20 28 64 61 |h).{..sw|itch (da|
|000006d0| 74 65 2e 6d 6f 6e 74 68 | 29 20 7b 0d 09 20 20 31 |te.month|) {..  1|
|000006e0| 3a 0d 09 20 20 09 73 74 | 72 63 70 79 28 64 61 79 |:..  .st|rcpy(day|
|000006f0| 2c 20 22 4a 61 6e 22 29 | 3b 2a 2f 00 00 00 00 00 |, "Jan")|;*/.....|
|00000700| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00000710| 00 00 34 62 09 75 74 69 | 6c 69 74 79 2e 63 02 00 |..4b.uti|lity.c..|
|00000720| 00 00 54 45 58 54 4d 4d | 43 43 01 00 ff ff ff ff |..TEXTMM|CC......|
|00000730| 06 64 61 79 64 2e 63 64 | 02 00 00 00 50 61 72 74 |.dayd.cd|....Part|
|00000740| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 02 ab df |SIT!....|........|
|00000750| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 ab f8 9c 99 00 00 | 00 00 00 00 01 9a 00 00 |........|........|
|00000780| 00 00 00 00 0f 00 00 00 | 34 62 09 77 69 6e 64 6f |........|4b.windo|
|00000790| 77 73 2e 63 02 00 00 00 | 54 45 58 54 4d 4d 43 43 |ws.c....|TEXTMMCC|
|000007a0| 01 00 ff ff ff ff 00 00 | 00 00 34 73 00 00 00 00 |........|..4s....|
|000007b0| 04 93 00 00 12 00 00 00 | 00 00 01 ce 00 00 12 00 |........|........|
|000007c0| a5 97 9b 1e a5 d6 b8 06 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 a5 1c |........|........|
|000007e0| 00 01 00 00 00 00 00 00 | 00 00 a5 1d 00 01 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 06 00 00 00 34 66 |........|......4f|
|00000800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 03 | 00 04 00 57 00 04 01 dc |........|...W....|
|00000830| 02 7c 00 57 00 04 01 dc | 02 7c ab 5d c1 80 00 00 |.|.W....|.|.]....|
|00000840| 03 4b 00 00 03 4b 00 00 | 01 d1 01 00 00 00 00 04 |.K...K..|........|
|00000850| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00000860| 00 00 00 46 01 42 9e f8 | 13 d6 00 00 00 1c 00 46 |...F.B..|.......F|
|00000870| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00000880| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00000890| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+